* lisp/simple.el (undo): Make message less enthusiastic

diff --git a/lisp/simple.el b/lisp/simple.el
index 5ef5d3dc2eaa1546a9ca617a0d690db0640329ed..766cb017b7da8a19b17bbc096238c91b9bfda032 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2530,7 +2530,7 @@ as an argument limits undo to changes within the current region."
     ;; so, ask the user whether she wants to skip the redo/undo pair.
     (let ((equiv (gethash pending-undo-list undo-equiv-table)))
       (or (eq (selected-window) (minibuffer-window))
-         (setq message (format "%s%s!"
+         (setq message (format "%s%s"
                                 (if (or undo-no-redo (not equiv))
                                     "Undo" "Redo")
                                 (if undo-in-region " in region" ""))))